home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00059_Script_makebiopops < prev    next >
Text File  |  1997-07-29  |  7KB  |  66 lines
  1. on xmakebiopops pm
  2.   set rolls = []
  3.   if pm = 13 then
  4.     addat rolls 1,["13bi1as": rect(46, 63, 238, 328), "glo,01laur": rect(139, 99, 268, 419), "13bi1bs": rect(16, 74, 352, 335), "13bi1cs": rect(121, 55, 329, 320)]
  5.     addat rolls 2,["13bi2as": rect(363, 53, 539, 312), "glo,13popul": rect(274, 141, 437, 161), "13bi2bs": rect(328, 54, 568, 312)]
  6.     addat rolls 3,["13bi3as": rect(353, 57, 561, 322), "13bi3bs": rect(317, 50, 621, 311), "13bi3cs": rect(353, 54, 561, 319)]
  7.     addat rolls 4,["glo,Canadian Bill of Rights": rect(229, 117, 415, 137), "13bi4as": rect(271, 59, 463, 319), "13BI4bv": rect(272, 70, 474, 278), "13bi4cs": rect(295, 59, 583, 314), "glo,Apartheid": rect(232, 153, 445, 173), "glo,British Commonwealth": rect(235, 186, 458, 206), "13bi4ds": rect(287, 58, 591, 314)]
  8.     addat rolls 5, ["13bi5as": rect(44, 56, 252, 319), "13bi5bs": rect(29, 72, 333, 327), "13bi5cs": rect(46, 54, 286, 307)]
  9.     addat rolls 6, ["glo,European Common Market": rect(127, 72, 317, 92), "glo,economic nationalism": rect(127, 72, 319, 92), "glo,economic nationalism": rect(127, 72, 319, 92), "glo,North American Air Defence Command": rect(124, 72, 343, 92), "glo,North American Air Defence Command": rect(124, 72, 343, 92), "13bi6as": rect(111, 45, 527, 291), "13bi6bs": rect(209, 52, 417, 314), "glo,Avro Arrow": rect(127, 69, 385, 89), "glo,Bomarcs": rect(124, 66, 388, 86), "13bi6cs": rect(198, 54, 422, 259)]
  10.     addat rolls 7,["glo,John Kennedy": rect(241, 99, 478, 119), "glo,John Kennedy": rect(241, 99, 478, 119), "13bi7as": rect(307, 58, 595, 303), "glo,Cold War": rect(244, 183, 475, 203), "13bi7bs": rect(340, 45, 580, 310)]
  11.     addat rolls 8,["13bi8as": rect(284, 46, 534, 308), "glo,Quiet Revolution": rect(145, 93, 400, 113), "13bi8bs": rect(284, 45, 534, 310), "13bi8cs": rect(284, 45, 534, 310)]
  12.     addat rolls 9,["13bi9as": rect(358, 65, 598, 320)]
  13.     
  14.   end if
  15.   if pm = 10 then
  16.     addat rolls 1,["glo,William Lyon Mackenzie": rect(26, 156, 104, 192), "glo,William Lyon Mackenzie": rect(26, 156, 104, 192), "10BI1as": rect(95, 56, 335, 317), "10BI1bs": rect(95, 55, 335, 319), "10BI1cs": rect(111, 61, 319, 311)]
  17.     addat rolls 2,[:]
  18.     addat rolls 3,["10BI3as": rect(351, 53, 575, 317)]
  19.     addat rolls 4,["glo,Ernest Lapointe": rect(246, 156, 354, 176), "10BI4as": rect(377, 53, 585, 313), "glo,progressive party": rect(249, 241, 341, 277), "glo,progressive party": rect(249, 241, 341, 277), "10BI4bs": rect(347, 54, 587, 313), "10BI4cs": rect(366, 56, 574, 296)]
  20.     addat rolls 5,["glo,Customs scandal": rect(204, 373, 309, 393), "10BI5as": rect(86, 55, 294, 315), "10BI5bs": rect(87, 61, 295, 309)]
  21.     addat rolls 6,["10BI6as": rect(338, 55, 578, 318), "10BI6bs": rect(56, 76, 296, 301), "glo,conscription": rect(176, 217, 307, 237)]
  22.     addat rolls 7,["10BI7as": rect(90, 76, 298, 296), "glo,British Commonwealth Air Training Plan": rect(25, 158, 183, 194), "glo,British Commonwealth Air Training Plan": rect(25, 158, 183, 194), "10BI7bs": rect(74, 52, 314, 307), "10BI7cs": rect(74, 45, 314, 351), "10BI7ds": rect(75, 58, 315, 322)]
  23.     addat rolls 8,["glo,family allowance": rect(39, 106, 132, 142), "glo,family allowance": rect(38, 106, 131, 142), "10BI8as": rect(104, 55, 312, 315), "glo,cold war": rect(38, 106, 157, 126)]
  24.     addat rolls 9,["10BI9as": rect(70, 55, 278, 320), "10BI9bs": rect(71, 53, 279, 320), "10BI9cs": rect(69, 62, 280, 293)]
  25.   end if
  26.   if pm = 7 then
  27.     addAt rolls, 1, [:]
  28.     addAt rolls, 2, [:]
  29.     addAt rolls, 3, [:]
  30.     addAt rolls, 4, [:]
  31.     addAt rolls, 5, [:]
  32.     addAt rolls, 6, [:]
  33.     addAt rolls, 7, [:]
  34.     addAt rolls, 8, [:]
  35.   end if 
  36.   
  37.   if pm = 1 then
  38.     addAt rolls, 1, ["01bi1as": rect(352, 55, 592, 280), "01bi1bs": rect(367, 55, 575, 320)]
  39.     addAt rolls, 2,  ["glo,Province of Canada": rect(149,59,374,110), "glo,Conservative Party": rect(149,59,374,110), "glo,Upper Canada": rect(149,59,374,110),"glo,Upper Canada": rect(149,59,374,110),"glo,George Etienne Cartier": rect(149,59,32,110), "01bi2as": rect(394, 63, 602, 301)]
  40.     addat rolls, 3, ["01bi3as":rect(364, 60, 604, 325), "glo,Charlottetown Conference": rect(156, 192, 403, 194), "01bi3bs": rect(397, 58, 605, 317), "glo,British North America Act":rect(156, 192, 517, 229)]
  41.     addat rolls, 4, ["glo,Rupert's Land": rect(156,108,374,110), "01bi4as": rect(316, 60, 604, 310), "glo,Red River Rebellion": rect(156,108,374,110), "glo,Louis Riel": rect(156,108,374,110)]
  42.     addat rolls, 5, ["glo,Pacific Scandal": rect(69,69,325,245), "sub_text":rect(142, 62, 372, 362)]
  43.     addat rolls, 6, ["01bi6as": rect(49, 87, 49 + 208, 87 + 174), "01bi6bs": rect(61, 43, 61 + 240, 43 + 321), "01bi6cs": rect(62, 59, 302, 322), "01bi6ds": rect(76, 78, 284, 302)]
  44.     addat rolls, 7, ["glo,Alexander Mackenzie": rect(320,240,325,245), "glo,Alexander Mackenzie": rect(320,240,325,245), "sub_text": rect(334, 88, 564, 271), "glo,National Policy": rect(320,240,325,245), "01bi7bs": rect(373, 58, 581, 296)]
  45.     addat rolls, 8, ["glo,Northwest Rebellion": rect(320,240,325,245), "01bi8as":rect(361, 58, 569, 323)]
  46.     addat rolls, 9, ["glo,Sir Wilfred Laurier": rect(120,140,125,145), "glo,Sir Wilfred Laurier": rect(120,140,125,145),"01bi9as": rect(64, 59, 272, 324)]
  47.     
  48.     
  49.   end if
  50.   if pm = 14 then
  51.     addat rolls, 1, ["14bi1as":rect(50, 55, 50 + 208, 55 + 295), "14bi1bs": rect(23, 83, 23 + 288, 83 + 254) ,"14bi1cs": rect(48, 55, 48 + 208, 55 + 265)]
  52.     addat rolls, 2,  ["14bi2as": rect(57, 51, 57 + 208, 51 + 268),"14bi2b": rect(41, 63, 41 + 240, 63 + 268),"glo,External Affairs": rect(31,108,32,110), "glo,external affairs": rect(31,108,32,110), "14bi2cs": rect(41, 93, 281, 301), "glo,Mackenzie King (1874-1950)": rect(31,108,32,110), "14bi2ds": rect(41, 85, 281, 310)]
  53.     addat rolls, 3, ["14bi3bs": rect(39, 55, 39 + 208, 55 + 266), "glo,NATO": rect(31,108,32,110),"glo,Suez Crisis": rect(31,108,32,110), "14bi3cv": rect(40, 65, 242, 65 + 201)]
  54.     addat rolls, 4, ["glo,John Diefenbaker ": rect(31,108,32,110), "glo,Louis St. Laurent (1882-1973)": rect(31,108,32,110),"14bi4as": rect(53, 71, 53 + 240, 71 + 219), "14bi4bv":  rect(57, 94, 57 + 202, 94 + 200)]
  55.     addat rolls, 5, ["glo,medicare": rect(41, 131, 176, 151), "glo,Canada Pension Plan": rect(31,108,32,110), "14bi5as": rect(48, 64, 336, 324), "14bi5bv":  rect(54, 89, 256, 299), "glo,Royal Commission on Bilingualism and Biculturalism": rect(31,108,32,110), "glo,Royal Commission on Bilingualism and Biculturalism": rect(31,108,32,110), "14bi5cs": rect(45, 92, 285, 317 - 2)]
  56.     addat rolls, 6, ["14bi6as": rect(414, 78, 622, 335), "14bi6bs": rect(184, 80, 184 + 208, 80 + 257), "14bi6cs": rect(184, 83, 184 + 288, 83 + 265)]
  57.     -- page 7
  58.     addat rolls, 7, ["glo,President Kennedy": rect(331,108,332,110), "glo,Lyndon Johnson": rect(331,108,332,110), "glo,Autopact": rect(331,108,332,110), "14bi7as": rect(305, 68, 593, 328), "glo,Vietnam": rect(331,108,332,110), "sub_text":rect(342, 62, 572, 362)]
  59.     addat rolls, 8, ["glo,Expo 67": rect(331,108,332,110),"14bi8as": rect(361, 51, 361 + 208, 51 + 266), "14bi8bs":   rect(308, 61, 596, 281)]
  60.     
  61.     
  62.   end if
  63.   
  64.   return rolls
  65. end
  66.